(pcomplete-comint-setup): Use `add-to-list', to prevent adding the

symbol `pcomplete' to shell-dynamic-complete-functions too many times.

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 3ab1619f127e08e1d9b15630d611809efecde0e5..9a1403cc104e3ee4210390e0c7e18d39afc009a7 100644 (file)
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -582,8 +582,7 @@ dynamic-complete-functions are kept.  For comint mode itself, this is
                    (symbol-value completef-sym))))
     (if elem
        (setcar elem 'pcomplete)
-      (nconc (symbol-value completef-sym)
-            (list 'pcomplete)))))
+      (add-to-list completef-sym 'pcomplete))))
 
 ;;;###autoload
 (defun pcomplete-shell-setup ()